Option Explicit
Sub N_Sample017()
    Dim t As Single
    t = Timer + 2
    Do
        Debug.Print Timer - t + 2
    Loop Until Timer > t
End Sub